# Código Figura 1
library(readxl)
library(dplyr)
library(ggplot2)

setwd("C://Users//gabri//Desktop//base de dados artigo revisão//Figuras")
# === 1) Caminhos de entrada/saída ===
# Altere para o caminho do seu arquivo .xlsx

#input_xlsx <- "Annual_Production_bibliometrix_2025-08-26.xlsx"
#output_eps  <- "Annual_Scientific_Production_biblioshiny_300dpi.eps"

# === 2) Leitura dos dados ===
# A planilha deve conter as colunas: Year, Articles
df <- read_xlsx("Figura_1/Base_de_dados_figura_1.xlsx", sheet = 1)
# Validação simples

if(!all(c("Year","Articles") %in% names(df))){
  stop("As colunas exigidas (Year, Articles) não foram encontradas.")
}

df <- df %>% arrange(Year)

# === 3) Gráfico no estilo Biblioshiny com ggplot2 ===
p <- ggplot(df, aes(x = Year, y = Articles)) +
  geom_line(color = "black", linewidth = 0.6) +
  labs(title = "Annual Scientific Production",
       x = "Year", y = "Articles") +
  theme_minimal(base_size = 12) +
  theme(
    plot.title = element_text(size = 14, face = "bold", hjust = 0.5, margin = margin(b = 10)),
    panel.grid.minor = element_line(size = 0.2, colour = "grey85"),
    panel.grid.major = element_line(size = 0.3, colour = "grey85")
  )

# Visualizar (opcional):
print(p)

# === 4) Exportar EPS com 300 dpi ===
ggsave(filename = output_eps, plot = p, device = cairo_ps, width = 9, height = 5, units = "in", dpi = 300)
cat(paste0("Arquivo salvo: ", normalizePath(output_eps), "\n"))
